################################################################################
# Procedure rafraichissant les messages recus
################################################################################
proc proc_afficheMessages { } {
	# Recupere la liste des messages
	global var_listeMessages
	
	# Recupere le salon courant
	global var_listeSalons
	global var_salonCourantId
		
	# Teste si la liste des mesages existe (non vide)
	if { [info exists var_listeMessages] == 0 } {
		return
	}
	if { [lsearch [array names var_listeMessages] $var_salonCourantId] == -1 } {
		return
	}
	set var_listeMessagesSalon $var_listeMessages($var_salonCourantId)
	
	# Ecrit les messages dans la zone de reception
	# Commence par effacer le contenu
	$var_listeSalons($var_salonCourantId,zoneDeTexte) delete 0.0 end
	
	# Reaffiche tous les messages
	foreach var_message $var_listeMessagesSalon {
		array set var_MessageArray $var_message
		$var_listeSalons($var_salonCourantId,zoneDeTexte)  insert end "\[$var_MessageArray(noeudId):[proc_getNoeudPseudo $var_MessageArray(noeudId)]\] $var_MessageArray(corps)"
		$var_listeSalons($var_salonCourantId,zoneDeTexte)  insert end "\n"
	}	
	
	# Met a jour l'affichage
	update
}
